BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/D/Dopplemaker 1.2.cpt/Dopplemaker 1.2/Dopple Stack/card_3180.txt

Text File | 1988-03-19 | 9.2 KB | 401 lines

-- card: 3180 from stack: in
-- bmap block id: 4458
-- flags: 0000
-- background id: 2694
-- name: Menu
----- HyperTalk script -----
on OpenCard
  CloseFields
  CloseButtons
  set hilite of card button "FileMenu" to false
  Show card button "FileMenu"
  Set hilite of card button "ReportMenu" to false
  Show card button "ReportMenu"
end OpenCard

on ShowFile
  CloseReport
  set hilite of card button "FileMenu" to true
  set visible of card field "FileMenu" to true
  put 1 into it
  repeat until it > 4
    set visible of card button it to true
    put it + 1 into it
  end repeat
end ShowFile

on CloseFile
  set hilite of card button "FileMenu" to false
  CloseFields
  put 1 into it
  repeat until it > 4
    set visible of card button it to false
    put it + 1 into it
  end repeat
end CloseFile

on ShowReport
  set hilite of card button "ReportMenu" to true
  CloseFile
  set visible of card field "ReportMenu" to true
  set visible of card button 6 to true
end ShowReport

on CloseReport
  set hilite of card button "ReportMenu" to false
  CloseFields
  set visible of card button 6 to false
end CloseReport

on CloseFileFields
  put 3 into it
  repeat until it > 6
    hide card field it
    put it + 1 into it
  end repeat
end CloseFileFields



-- part 1 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=142 top=63 right=232 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FileMenu


-- part 2 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=217 top=63 right=103 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ReportMenu


-- part 3 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=278 top=75 right=100 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open
----- HyperTalk script -----
on mouseUp
  if not visible of card field "Open Info" then
    CloseFileFields
    set visible of card field "Open Info" to true
  end if
end mouseUp



-- part 4 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=266 top=123 right=148 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UnDopple
----- HyperTalk script -----
on mouseUp
  if not visible of card field "UnDopple Info" then
    CloseFileFields
    set visible of card field "UnDopple Info" to true
  end if
end mouseUp



-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=231 top=92 right=117 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save
----- HyperTalk script -----
on mouseUp
  if not visible of card field "Save Info" then
    CloseFileFields
    set visible of card field "Save Info" to true
  end if
end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=237 top=165 right=190 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  if not visible of card field "Print Info" then
    CloseFileFields
    set visible of card field "Print Info" to true
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=143 top=45 right=63 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FileMenu
----- HyperTalk script -----
on mouseUp
  if not visible of card button 1 then
    ShowFile
  else
    CloseFile
  end if
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=390 top=69 right=94 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Usage
----- HyperTalk script -----
on mouseUp
  if not visible of card field "Usage Info" then
    set visible of card field "Usage Info" to true
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=218 top=45 right=63 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ReportMenu
----- HyperTalk script -----
on mouseUp
  if not visible of card button 6 then
    ShowReport
  else
    CloseReport
  end if
end mouseUp



-- part 12 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=14 top=100 right=185 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Info
----- HyperTalk script -----
on mouseup
  hide card field "Open Info"
end mouseup


-- part 13 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=55 top=119 right=189 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save Info
----- HyperTalk script -----
on mouseup
  hide card field "Save Info"
end mouseup


-- part 14 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=264 top=148 right=316 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UnDopple Info
----- HyperTalk script -----
on mouseup
  hide card field "UnDopple Info"
end mouseup


-- part 15 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=270 top=150 right=220 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Info
----- HyperTalk script -----
on mouseup
  hide card field "Print Info"
end mouseup


-- part 16 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=93 top=101 right=291 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Usage Info
----- HyperTalk script -----
on mouseup
  hide card field "Usage Info"
end mouseup


-- part 17 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=49 top=268 right=338 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Authors Note
----- HyperTalk script -----
on mouseup
  hide card field "Authors Note"
end mouseup


-- part contents for card part 1
----- text -----
New DoppleGanger
Open DoppleGanger
Save Report
Make DoppleGanger
UnDopple Files…
-
Page Setup…
Print
-
Quit




-- part contents for card part 2
----- text -----
Display Application Usage
Reset Application Usage

-- part contents for card part 12
----- text -----
The “Open” command allows you to open existing DoppleGangers and change the path, name, or options of the original application.

-- part contents for card part 13
----- text -----
The commands “Save” refer to the report windows.  They will be dimmed until a report window is activated.

-- part contents for card part 14
----- text -----
The “UnDopple Files…” command will allow you to remove DoppleGangers and restore its original application to being visible and single-user.  Note:  only DoppleGangers and folders will be shown in the standard open dialog box.  Thus everything that you would see is a DoppleGanger.  There is no danger of deleting an original document


-- part contents for card part 15
----- text -----
As with the save commands, these commands deal with the Application Usage Report windows.

-- part contents for card part 16
----- text -----
If you wish to maintain a report of application usage, the DoppleGangers will keep a count of how many times each one has been opened.  Thus if you had a DoppleGanger for MacWrite‚Ñ¢, it would keep track of how many times it was opened.

To enable this option, you must have a folder called
“Resources” in the root volume.  The users must also have write access to this folder.  If such a folder does not exist, it will not affect the opperation of the DoppleGangers; they simply will skip their application report function.




-- part contents for card part 17
----- text -----
Those commands that do not function in your version will be implemented in later versions.  Also, I look forward to hearing feedback on any aspect of the DoppleMaker.  If there are features that you would like to see in later versions, please contact me.